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COMSERRTST FORTRAN compatibility error test (ERRTST) 16-Sep-1984 00:10:14 AX-11 Bliss-32 V4.0-74 Page 1 CO 
: 1a-8ep-19 4 99:49:35 FORRTL.SRC COMEMRTST. 68251 . (1) 1- 
MODULE COMSERRTST ETERS Penrany compatibility error test (ERRTST)! 
IDENT = ‘1-007', ' File: COMERRTST.B32 Edit: SBL1007 
LINKAGE ‘theres ! Call-by-reference 


BEGIN 


' ’ 
PTT Titi iii iii titi iii titi il itiiititiiiiiiiiiiiitiiiiiitiiiiiiiiiiie) 
it 

'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


j 
i * 
* 
® 
® 
: ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY RDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. « 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
iz CORPORATION. * 
® 
* 
we 
® 
® 
® 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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LRA REAR AAA AAA AEE AAE RARE AAAA AAA AA AAA 
' 


++ 
FACILITY: FORTRAN compatibility Library 
ABSTRACT: 


This module contains routine ERRTST to perform F4P-11 type 
compatable error checking. 
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i 

' 

i 

i 

i 

i 

! 
0040 ENVIRONMENT: User Mode - AST re-entrant 
0046¢ : AUTHOR: Thomas N. Hastings, CREATION DATE: 14-Dec-1977 
0064 MODIFIED BY: 
0046 i Thomas N. Hastings, 14-Dec-1977: VERSION 0 
0047 ' 00-01 - original 
0048 ' 00-10 = Call back with indirect. TNH 3-Jan-78. 
0049 ' 00-14 = PSECT F4PCOMPATSCODE. TNH S-Jan-78. 
0050 ! 00-15 = Fix MAXLIM. TNH 5-Jan-78. 
0051 : 9-18 = Down count ERROR_COUNT. TNH 6-Jan-78 
p03¢ ! 00-17 - Math errors are Continue type. INH 6-Jan-78 
Boz 00-21 - remove debugging printing. TNH 9-Jan-78 
boss i Jonathan M. Taylor, 12-Jan-78: VERSION 1° 
B036 ! J-1 - original; break module COMSERRSET_TST into COMSERRTST, COMSERRSET, 
005 i and COMS$SERRSET_TST. JMT 12-Jan-78 
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CORSE RRTSI 


FORTRAN 


i) 2 


ibility error test (ERRTST) 18-50 2p-1984 AX-11 Bliss-32 v4 Page cc 
peste: in ’ ats 99: 49: iS PORRTL SREICOMERRTS Rist. % 2:1 . as 1- 
' 1-95 - change REQUIRE files for alt sygsen build. DOGP 28-Apr-78 
' 1- ~ le name fe COMERRTST and 1SHa, ~ names 
4 — he REQUIRE tf Les similarly . 
' 1-005 - Update the copyr ignt notice. YBs V-7 
' 1-006 - REQUIRE RTLPSECT instead of vt gy “abs 07-DEC-78 
1-007 = Use prologue file. SBL 28-Jul-19 3 
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os 


compatibility error test (ERRTST) 


PROLOGUE FILE: 


REQUIRE 'RTLIN:FORPROLOG'; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
ERRTST: NOVALUE; 


; INCLUDE FILES: 


REQUIRE 'RTLIN:COMEST'; 
! 


; MACROS: 
i None 


EQUATED SYMBOLS: 
i None 


1 
OWN STORAGE: 
' None 


EXTERNAL DECLARATIONS: 
EXTERNAL 


! FORS definitions 


! FORTRAN compatibility CALL ERRTST 


! COMSSERR_TAB fields 


COMSSERR_TAB: BLOCKVECTOR CFORSK_MAX_ERR + 1, 1, BYTE] ADDRESSING_MODE (GENERAL); 


14 
RAN compatibility error test (ERRTST) 1b-Sep-19 4 99:49:18 AX-11 Bliss-32 V4.0-74 
14-Sep-1984 12:31:29 FORRTL.SRCJCOMERRTST.B32;1 (3) 


— 


ZSBTITL'ERRTST' 
GLOBAL ROUTINE ERRTST ( 
FORT _ERR_NO 


OCCURRED? ~ 
:NOVALUE = 


COMSERRTST 
bis 


! Adr. of word containing error number 
! Adr. of word to receive 1 (occurred) or 2 (has not occurred) 
No value is returned 


lee 
' FUNCTIONAL DESCRIPTION: 
The ERRTST subroutine tests for the occurrence of a specific 
error during program execution. FORT_ERR_NO specifies 
the FORTRAN error number and OCCURRED receives: 
f error number FORT_ERR_NO has occurred. 
2 if error number FORT_ERR_NO has not occurred 
since the Last CALL ERRTST for that error number. 
Thus the ERRTST subroutine resets the error flag for that 
error. All error flags are initially 0 when the image is started up. 
FORMAL PARAMETERS: 


FORT _ERR_NO.rw.r Adr. of word containing FORTRAN error number 
OCCURRED ww.r Adr. of word to received 1 or 2. 


IMPLICIT INPUTS: 
COMSSERR_TAB byte table indexed by FORTRAN error eumber. 
IMPLICIT OUTPUTS: 
COMSSERR_TAB byte table. Occurred flag is cleared for specified error number. 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


Clears occurred bit in EXTERNAL COMSSERR_TAB for specified 
FORTRAN error number. 


A=OOONAVNE WN (OOD ENOU EW" OOONO Do —_ 


BEGIN 
MAP 
FORT_ERR_NO: REF VECTOR (1, WORD], ! Pass word by reference 
PECURRED: REF VECTOR C1, WORDJ; ! Pass word by reference 
TESTBITSC; ! Test bit set then clear 
'¢ 


! Test occurred flag for this error then clear it. 
; Return 1 if was set, 2 if was clear. 


NOU EWN OO OONAU EW O OONOUE wry 


OCCURREDLO] = (IF TESTBITSC (COMSSERR_TABL.FORT_ERR_NOLOJ, V_EC_OCCURRED]) THEN 1 ELSE 2); 
END; — ! End of ERRTST 


i ei iii ee ee ee ee ee ee ee ee ee 
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COREE RRTST 
1-00 
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ponree N compatibility error test (ERRTST) 16-Sep- 


14- ~Sep- 
5 06 oon 0000 
05 oo0000060040 BS es $606 
50 01 00 QO00F 
3 11 00012 
50 § DO 00014 1$: 
08 BC BO 00017 2$: 
04 00018 
; Routine Size: 28 bytes, Routine Base: _FORSCODE + 0000 
; 1% 0293 1 
; 16 0294 1 
> 164 0295 1 END 
3 165 0296 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_FORSCODE 28 NOVEC,NOWRT, RD, EXE, SHR, 
: Library Statistics 
a et es a ee ee Symbols -------- 
3 File Total Loaded Percent 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 5 0 
3 ~$255$DUA28:CFORRTL.OBJJFORLIB. Legit 711 1 0 
3: [$255$DUA28: FORRIL: OBIIRILL 18.L32;1 36 0 0 


COMMAND QUALIFIERS 


1986 92:3 


«TITLE 
- IDENT 
~EXTRN 
»PSECT 


LCL, 


» i AX-11 Bliss-32 V4.0-74 


FORRTL.SRCJCOMERRTST.B52;1 


Page 


5 
(3) 


COMSERRTST poe tnan compatibility error test (ER 


\1-007\ 
COMSSERR_TAB 
_FORSCODE ,NOWRT, 


SHR, 


ERRTST, Save nothing 


aFORT € 


#2, RO 
RO, @OCCURRED 


RR_NO, RO 
are f CONSSERR_ TABCROJ, 1$ 


REL, CON, PIC,ALIGN(2) 


Pages Processing 
Mapped Time 
581 00:01.0 
¢ 00:00.5 
00:00.1 


PIC,2 


0292 | 


co 
Ta 


] 
! 


GOMBGRRTST. —ERETRAN compatibiLity error test (ERRTSTD ——f-Beprt9Bs 09:10:)5  YARCIY BLiSHCRE.YerOG7Ag, rane of 


PLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L 15S: COMERRTST/OBJ=08 8: COMERRTST MSRC$: COMERRTST/UPDATE=(ENHS$: COMERRTST 


Size: 28 e. + 0 data bytes 
me: 68°84 ~~ 
:16.7 
Lexenes/CPU-Min: 4289 


penety Used: 35 pages 
Compilation Complete 


1- 
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